object RelMesaMesPosto: TRelMesaMesPosto
  Left = 262
  Top = 212
  Width = 870
  Height = 500
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 862
    Height = 473
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    ShowGroupPanel = True
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 0
    DataSource = DataSource1
    Filter.Criteria = {00000000}
    LookAndFeel = lfUltraFlat
    OptionsBehavior = [edgoAutoSort, edgoCellMultiSelect, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoExtMultiSelect, edgoImmediateEditor, edgoMultiSelect, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
    object dxDBGrid1CODIGO: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CODIGO'
    end
    object dxDBGrid1ANOMES: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ANOMES'
    end
    object dxDBGrid1TOTAL: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'TOTAL'
    end
  end
  object DataSource1: TDataSource
    DataSet = qryConsulta
    Left = 8
    Top = 56
  end
  object qryConsulta: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT FRANQUIA AS CODIGO, DBO.F_ANOMES(YEAR(DATA),'
      'MONTH(DATA)) AS ANOMES, SUM(QTD) AS TOTAL FROM BOLETO B'
      'WHERE DATA BETWEEN '#39'20060701'#39' AND '#39'20061231'#39
      'AND FRANQUIA IN ('#39'501'#39','#39'508'#39')'
      'GROUP BY FRANQUIA, YEAR(DATA), MONTH(DATA)'
      'ORDER BY YEAR(DATA), MONTH(DATA), FRANQUIA')
    Top = 104
    object qryConsultaCODIGO: TIntegerField
      FieldName = 'CODIGO'
    end
    object qryConsultaTOTAL: TIntegerField
      FieldName = 'TOTAL'
      ReadOnly = True
    end
    object qryConsultaANOMES: TStringField
      FieldName = 'ANOMES'
      ReadOnly = True
      FixedChar = True
      Size = 8
    end
  end
end
